program Updater;

uses
  Forms,
  Windows,
  uMainForm in 'uMainForm.pas' {MainForm};

{$R *.res}

var
  HMutex: THandle;
  ret: DWORD;
begin
  HMutex := CreateMutex(nil, False, Pchar('{9D46ACF9-55CD-4FE9-BE73-BC131B867C47}'));
  Ret :=  GetLastError;
  if Ret<>ERROR_ALREADY_EXISTS then
  begin
    try
      Application.Initialize;
      SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
      Application.ShowMainForm := False;
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    finally
      ReleaseMutex(hMutex);
    end;
  end else
  begin
    if hMutex<>0 then
      ReleaseMutex(hMutex);
  end;
end.
